* net/tramp-gvfs.el (tramp-gvfs-handle-delete-directory): Handle

optional parameter RECURSIVE.

diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el
index 8ef65459cb752a75ab5186a3ed6587285312e1f0..45f30330b09da523a36dc2519d1124c25b5b237c 100644 (file)
--- a/lisp/net/tramp-gvfs.el
+++ b/lisp/net/tramp-gvfs.el
@@ -520,9 +520,9 @@ is no information where to trace the message.")
      newname)
    ok-if-already-exists keep-date preserve-uid-gid))
 
-(defun tramp-gvfs-handle-delete-directory (directory)
+(defun tramp-gvfs-handle-delete-directory (directory &optional recursive)
   "Like `delete-directory' for Tramp files."
-  (delete-directory (tramp-gvfs-fuse-file-name directory)))
+  (delete-directory (tramp-gvfs-fuse-file-name directory) recursive))
 
 (defun tramp-gvfs-handle-delete-file (filename)
   "Like `delete-file' for Tramp files."